(module duple (lib "eopl.ss" "eopl")
  (provide duple)
;;1.14
;; duple: Number * Number -> List
;; usage: (duple n x)
;; produces: return a list containing n copies of x

;; examples:
;; (duple 2 3) ==> (3 3)
;; (duple 2 '(1 2)) ==> ((1 2) (1 2))
;; (duple 0 3) ==> ()



(define (duple n x)
  (cond
  ( (zero? n) '() )
  (else (cons x (duple (- n 1) x)))
 ))



(duple 2 3)
(duple 2 '(1 2))
(duple 0 3)
)